home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / i_menu.asp < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.6 KB  |  62 lines
  1. <%
  2. %>
  3. <%
  4.  
  5.  
  6.  
  7.  
  8.  
  9. do_search = request("do_search")
  10. ''' request form keys
  11. ''' request action
  12. action = lcase(request("action"))
  13. ''' action case handler
  14. select case action
  15.  
  16. end select
  17.  
  18. '  no action was specified, so handle the default case(s)
  19.  
  20. %>
  21.  
  22.  
  23. <table class='menuTable' >
  24. <tr>
  25.     <td class='menuTD' >
  26.         <a class=menuFont href="default.asp">Home</a>
  27.     </td>
  28.     <td class='menuTD' >
  29.         <a class=menuFont href="login.asp?action=logout">Login</a>
  30.     </td>
  31.     <td class='menuTD' >
  32.         <a class=menuFont href="register.asp">Register</a>
  33.     </td>
  34.     <td class='menuTD' >
  35.         <a class=menuFont href="links.asp">Links</a>
  36.     </td>
  37.     <td class='menuTD' >
  38.         <a class=menuFont href="content.asp">Articles</a>
  39.     </td>
  40.     <td class='menuTD' nowrap>
  41.         <a class=menuFont href="submit.asp?CatId=<% =request("CatId") %>">Add your site</a>
  42.     </td>
  43.     <form action="goto.asp" method="get" >
  44.     <td class='menuTD' nowrap>
  45.         <% if isnull(gotourl) then gotourl = "" %>
  46.         //<% if session("accesslevel") > 2 then %>
  47.         <select name="gotourl" onchange="form.submit('this')">
  48.         <option>administration menu</option>
  49.         <option <% if "admin_users.asp" = cStr(gotourl) then %>selected<% end if %> value="admin_users.asp">users</option>
  50.         <option <% if "admin_cats.asp" = cStr(gotourl) then %>selected<% end if %> value="admin_cats.asp">categories</option>
  51.         <option <% if "admin_links.asp" = cStr(gotourl) then %>selected<% end if %> value="admin_links.asp">links</option>
  52.         <option <% if "admin_content.asp" = cStr(gotourl) then %>selected<% end if %> value="admin_content.asp">content</option>
  53.         </select>
  54.         <% end if %>
  55.     </td>
  56.     </form>
  57. </tr>
  58.  
  59. </table>
  60.  
  61.  
  62.